Top 10k strings from Video Basic - Issue 06 (1985)(Ingelek Jackson)(16k)(es).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
4 "4";"ESTA BIEN ESCRITO ? (S/N)";
4 "30";" ";
3 t$=" PULSA UNA TECLA PARA CONTINUAR "
3 t$(2)-48":
3 punt1=punt:
3 U;" BASIC "
3 U;" ";N$;" "
3 CAR
3 CAR
3 A$="PON EN MARCHA LA GRABADORA":
3 "6";" SIGUIENTE"
3 "23606",z:
3 "126-XL/2",
3 PARA LA GRABADORA
2 y$=" PULSA UNA TECLA PARA CONTINUAR ":
2 t$(3)-48":
2 punt=punt1:
2 p$="VIDEOHARDWARE: ":
2 p$="VIDEOBREAK: ":
2 p$="VIDEOBASIC-LA PROGRAMACION: ":
2 i;" BASIC ":
2 T$=" ELIGE, "+N$+":":
2 RUTINA MAQUINA DE ESCRIBIR
2 LEE LOS UDG
2 HOMBRECILLO
2 ;"VIDEOBASIC":
2 ;"SALIDA":
2 ;"PARA LA GRABADORA":
2 ;" ";
2 ;" ":
2 1;AT 13,28;""+""";
2 * *
2 * *
2 (add-go)=0
2 (add+go)=0
2 ''''"10 PRINT ""ESTO""
2 "BIEN, "+N$+"
2 "8",N;A$(N-2
2 "3";"ESCRIBE TU NOMBRE EN EL TECLADO Y PULSA <ENTER>":
2 "23296"+N,
2 "10-a/2",U;
2 "10",z;" PARA LA GRABADORA ":
2 "(21-YP)*8-2":
2 ""BASIC"""'
2 VUELTA AL PRINCIPIO";
2 SOFTIDEA (Como)
2 PASO A LA PARTE";
2 CONTINUAR"
2
2
1 z;"PRINT AT ";Y;",";X
1 yp=yp+(t$(i)="b")-(t$(i)="a"):
1 y(n)=y(n+1
1 xp=xp+(t$(i)="d")-(t$(i)="s"):
1 vista=vista+1
1 u;"_______"'" (
1 u;"PULSA ENTER TRAS CADA NUMERO";
1 u;"D$=DES. IMP=IMPORTE TOT=TOTAL "
1 u;" ERROR !!! - PRUEBA OTRA VEZ ":
1 t$="PUEDES USAR <INK> PARA LA TIN-TA Y <PAPER> PARA EL PAPEL...":
1 t$="PRINT AT "+
1 t$="LOS ATRIBUTOS PERMANENTES SON,POR TANTO, AQUELLOS QUE UTILI-ZA <PRINT> SI NO SE ESPECIFICANINGUN VALOR TEMPORAL.":
1 t$="LA PANTALLA IMAGINARIAMENTE SEDIVIDE ES CASILLAS COMO... "+
1 t$="HE AQUI COMO INDICAR A ""PRINT""LO QUE DESEAS ESCRIBIR.":
1 t$="ANTES DE CONTINUAR, ES CONVE-NIENTE OBSERVAR UNA PECULIARI-DAD DEL PARAMETRO <OVER>.":
1 t$="AHORA PRUEBA A INTRODUCIR LASCOORDENADAS ""FILA"" Y ""COLUMNA""":
1 t$="...y este es el efecto de lapuntuacion:":
1 t$="...SEGUIDOS DE LOS CODIGOS DECOLOR ESCOGIDOS.":
1 t$=" PON EN MARCHA LA GRABADORA ":
1 t$=" ... MUCHO MAS !!!! ":
1 t$=" HOLA, SOY TU AMIGO SPECTRUM. HABRAS VISTO COMO VAS PROGRESADO DESDE QUE LEES VIDEOBASIC. IMAGINATE CUANTO SABRAS CUANDO HAYAS LEIDO EL NUMERO VEINTE, SI AHORA ESTAS EN EL SEIS!"
1 t$(u+u)-48":
1 t$(u)="<":
1 t$(u)="1292"(B)
1 t$(4)-49":
1 t$(3)-49":
1 t$(3)-48)*4+2":
1 t$(3)-48",
1 t$(2)-48)*8+2":
1 t$(2)-48";
1 punt1=punt1+4
1 punt1=punt1+(y$="8")-(y$="5")+2
1 punt1=punt
1 pass=pass+1
1 p;" ":
1 p;" ":
1 p$="los temas de la leccion ":
1 p$="del Spectrum ":
1 p$="VIDEOTEST: ":
1 p$="VIDEONEXT: ":
1 p$="VIDEONEXT":
1 p$="VIDEOLIST":
1 p$="VIDEOJUEGO: ":
1 p$="VIDEOJUEGO: ":
1 p$="VIDEOBASIC-EL LENGUAJE: ":
1 p$="Uso de <PRINT> e <INPUT> ":
1 p$="STOP-CONTINUE-NEW-BREAK ":
1 p$="RND - RANDOMIZE ":
1 p$="Monologo ":
1 p$="Los Operadores Logicos ":
1 p$="Laberinto ":
1 p$="La Zona de Comunicacion ":
1 p$="La TV y el Monitor ":
1 p$="Juego de adivinanzas sobre ":
1 p$="Hogar, Dulce Hogar ":
1 p$="FLASH - OVER - INVERSE ":
1 p$="En el proximo numero... ":
1 p$="EL TELEVISOR Y EL MONITOR, SEUTILIZAN PARA LA VISUALIZACIONDE INFORMACIONES POR MEDIO DEUN TUBO DE RAYOS CATODICOS,(C.R.T.).":
1 p$="Crucigrama ":
1 p$="CLEAR - AND - OR - NOT ":
1 p$="AT - TAB - INK - PAPER ":
1 p$=" PARA LA CINTA, Y PULSA 'ENTER' "
1 n;" ":
1 n;" ":
1 k$="008004002255002004008000016016016016146084056016016032064255064032016000016056084146016016016016"
1 i;" ";i;" ":
1 i+t$(u+i)+
1 i$(u+u)="8")
1 i$(u+u)="1"
1 go=g(punt1)
1 go=g(punt)
1 go1=add-22528
1 copy=23760
1 chrs;" "'"Pulsa ""V"" para ver donde estas":
1 cc-aa,dd-bb,ee:
1 b=a+g(j)*2
1 b$=b$+(w$(j)
1 attr=23813
1 add=add+go
1 add=add+g(
1 aa,bb,cc,dd,ee:
1 a=a-g(j)*2
1 a;" ":
1 a1=add-32000
1 a$="VIDEOBASIC.":
1 a$="RANDOMIZE":
1 a$=" RND ":
1 a$=" LA PROGRAMACION ":
1 a$=" HASTA PRONTO ":
1 Z,Z;"LA INSTRUCCION"'
1 Z+"OK",";AT 10,4;FLASH 1;"""+N$+"""",
1 Z+"1234","",""
1 YY,XX;" ";
1 Y,N;A$(N-2
1 Y,N;" {|";
1 Y$="PULSA UNA TECLA PARA CONTINUAR ":
1 Y$=" PULSA UNA TECLA PARA CONTINUAR "
1 X,Z;P$(N):
1 X,Y;T$(N):
1 X+";"""+a$+"""":
1 Via Indipendenza, 88
1 Via Indipendenza 88
1 VISUALIZACION BLOQUE
1 VIDEOTEST
1 VIDEONEXT
1 VIDEOLIST
1 VIDEOJUEGO
1 VIDEOHARD -
1 VIDEOBREAKA
1 VIDEOBASIC N.6
1 VB6
1 U;"SE EJECUTA ASI",
1 U;"OTRA VEZ..":
1 U;"ERROR !":
1 U;"BIEN, "+N$,,"AHORA INTRODUCE <RUN>, Y VERASFUNCIONAR TU PROGRAMA.",:
1 U;" PULSA UNA TECLA PARA CONTINUAR",:
1 U;" PULSA UNA TECLA PARA CONTINUAR ":
1 U;" PULSA <ENTER> AL TERMINAR ";
1 U;" SERIE DE NUMEROS <RND>",
1 U+U,XP;A$;
1 U+"IMPORTE","",""
1 TOT=0","045INTROD. ","046<DESCR.>","#820","2520
1 TEST 06
1 T$=T$+" TE ACONSEJO QUE CONTINUES COMPRANDOME POR NUESTRO MUTUO INTERES, PORQUE ....... MODESTAMENTE ......... NO ME GANA NINGUNO! "
1 T$="Y HE AQUI COMO DAR COLOR A LOESCRITO...":
1 T$="Y HE AQUI ALGUNOS EJEMPLOS DEINSTRUCCIONES DE <PRINT>.":
1 T$="TODOS LOS PARAMETROS ASOCIADOSA <INPUT>, SE REFIEREN UNICA-MENTE A SU PARTE DE LA PANTA-LLA. ESTA, INICIALMENTE DE 2LINEAS, SE AMPLIA AUTOMATICA-MENTE EN CASO DE NECESIDAD:":
1 T$="TODOS LOS ATRIBUTOS VISTOSHASTA AHORA, TENIAN UN CARAC-TER TEMPORAL, PUESTO QUE SUEFECTO CESABA AL TERMINAR LAINSTRUCCION <PRINT>.":
1 T$="TODO CUANTO HEMOS DICHO SOBRE<PRINT>, ES TAMBIEN VALIDO PA-RA <INPUT>, PERO CON ALGUNADIFERENCIA.":
1 T$="PUESTO QUE LA ASIGNACION POR<INPUT> ES TOTALMENTE EQUIVA-LENTE A LA DE <LET>, ESTE AD-MITE TANTO VALORES CONSTANTES,COMO VARIABLES O EXPRESIONES."
1 T$="PUEDES UTILIZAR <TAB> PARA IN-DICAR LA COLUMNA DE IMPRESION.SI SU ARGUMENTO ES INFERIOR ALA COLUMNA ACTUAL, SE DESPLAZAA LA LINEA SIGUIENTE.":
1 T$="PUEDES USAR <BRIGHT>, <FLASH>,<INVERSE> Y <OVER> PARA ESCRI-TURAS ESPECIALES. EL ARGUMENTO<0> ANULA SU EFECTO; <1> LOCONECTA;<8> NO LO ALTERA (SOLOVALIDO PARA <BRIGHT> E<INVERSE>).":
1 T$="PRINT AT 18,20;""ASI"";TAB 10;""AQUI""":
1 T$="POR ULTIMO, HE AQUI UNA SEN-TENCIA QUE PERMITE DAR COLORAL MARCO:":
1 T$="NO VARIA LA POSICION DE IMPRE-SION.":
1 T$="MIENTRAS QUE <PRINT> ES, EVI-DENTEMENTE, UNA SENTENCIA DE<OUTPUT>, <INPUT> PUEDE CUM-PLIR AL MISMO TIEMPO LAS DOSTAREAS:":
1 T$="LLEVA LA POSICION DE IMPRESIONAL COMIENZO DE LA SIGUIENTELINEA.":
1 T$="LLEVA LA POSICION DE IMPRESIONA LA MITAD DE LA LINEA.":
1 T$="INTRODUCE VALORES NUMERICOS. SITE EQUIVOCAS PULSA 'GOTO 100'":
1 T$="HASTA AHORA HEMOS UTILIZADOLAS INSTRUCCIONES MAS SENCI-LLAS CON ""PRINT""...":
1 T$="EXISTE LA POSIBILIDAD DE ELI-MINAR LAS <"" "">, QUE NORMAL-MENTE APARECEN CON EL CURSOREN LA ENTRADA DE CADENAS: ATAL FIN, EMPLEAMOS EL PARAME-TRO <LINE>, SITUADO INMEDIA-TAMENTE ANTES DE LA VARIABLEDE <INPUT>.":
1 T$="ESTE SUPERPONE LOS CARACTERESDE UNA FORMA MUY PARTICULAR:PARA CADA PUNTO CONSIDERADO,REALIZA LA SIGUIENTE OPERA-CION:":
1 T$="ESTA OPERACION LOGICA SE LLAMA<O EXCLUSIVO>, Y CONSIGUE CAN-CELAR COMPLETAMENTE EL CARAC-TER SUPERPUESTO, CON SOLO VOL-VERLO A ESCRIBIR EN EL MISMOLUGAR.":
1 T$="ELIGE, "+N$:
1 T$="CUANDO EL MENSAJE PARA<OUTPUT> ES UNA CONSTANTE, NOES PROBLEMA; SIN EMBARGO,SI SEQUIERE UTILIZAR UNA VARIABLE,PARA EVITAR LA AMBIGUEDAD DEBEENCERRARSE ENTRE PARENTESIS, ADIFERENCIA DE LA VARIABLE DE<INPUT>.":
1 T$="CREO QUE ES MEJOR QUE REPASESCON CALMA EL DESARROLLO DELPROGRAMA, Y LO INTENTES DENUEVO.":
1 T$="AUNQUE, USANDOLOS COMO COMAN-DO, ES POSIBLE ATRIBUIRLES UNAVALIDEZ PERMANENTE, DE FORMAQUE INFLUYAN TAMBIEN EN LOS<PRINT> SUCESIVOS.":
1 T$="ALGO SIMILAR OCURRE CON EL<INPUT> DE CADENAS, PERO PARAENTRAR VARIABLES TENDREMOS QUEELIMINAR LAS COMILLAS.":
1 T$="AL <INPUT> DE LA LINEA 20 PU-DISTE RESPONDER, O BIEN CON TUFECHA DE NACIMIENTO, O CON<1985-15> (SUPONIENDO QUE TEN-GAS 15 ANOS), O INCLUSO CON<ANO-15>.":
1 T$="AHORA PRUEBA TU A ELEGIR LOSPARAMETROS (EJEMPLO: <BRIGHT1>, <INK 3>, ETC.). USA EL TE-CLADO DEL MODO HABITUAL.":
1 T$="ADEMAS,PUEDES UTILIZAR <8> PA-RA NO CAMBIAR EL COLOR, Y <9>PARA OBTENER AUTOMATICAMENTEEL MAXIMO CONTRASTE ENTRE<INK> Y <PAPER>.":
1 T$="<A$> ES DE <OUTPUT>, Y PORTANTO, APARECERA COMO MENSAJE;<B$> ES DE <INPUT>, Y SE ASIG-NARA MEDIANTE EL TECLADO.":
1 T$="..COMO PRINCIPIO DE LA SERIE.":
1 T$=" ELIGE, "+n$:
1 SITUA LA POSICION DE PRINT ENCUALQUIER PUNTO DE LA PANTALLA AT
1 SITUA HORIZONTALMENTE LA POSI-CION DE IMPRESION TAB
1 SCROLL=23828
1 SCR6.0
1 ROTULOS ENTRANTES
1 ROTULO ROTATORIO
1 PULSA UNA TECLA PARA CONTINUAR
1 PUEDES ELIGIR..."
1 PROGRAMA r
1 PORTADA
1 PETICION DEL NOMBRE
1 PERMITE INVERTIR LOS COLORESDE FONDO Y PRIMER TERMINO INVERSE
1 PERIFERICO PROFESIONAL PARA LAVISUALIZACION DE DATOS MONITOR
1 PERIFERICO DOMESTICO PARA LAVISUALIZACION DE DATOS TELEVISOR
1 P$="VIDEOBASIC-EL LENGUAJE: ":
1 P$="TU SPECTRUM SE ENCARGA PERSO-NALMENTE, DE QUE EL HAZ EN-CIENDA LOS PUNTOS ADECUADOS DELA PANTALLA, ENVIANDO ESTA IN-FORMACION POR EL CABLE DE TV. ":
1 P$="SOLO UNOS POCOS ELECTRONES LO-GRAN EMITIR LUZ, MIENTRAS QUELOS DEMAS SE PIERDEN.":
1 P$="NORMALMENTE LA PANTALLA SEESCRIBE 50 VECES POR SEGUNDO,AFIN DE QUE PERMANEZCA ESTABLE.PARA ENCENDER UN PUNTO, ELSPECTRUM DEBE ENVIAR UN IMPUL-SO DE CERCA DE 200 NANOSEGUN-DOS (UNOS 0.0000002 SEGUNDOS).":
1 P$="NATURALMENTE,TODO ESTO SE REA-LIZA A UNA VELOCIDAD TAL, QUEEL OJO HUMANO NO ES CAPAZ DEPERCIBIR DE QUE MANERA SE ES-CRIBE LA INFORMACION."
1 P$="ESTE ES EL PRINCIPIO BASICO !":
1 P$="EL FUNCIONAMIENTO DEL C.R.T.ES MUY SENCILLO: UN HAZ DEELECTRONES,ES ENVIADO DESDE LABASE DEL TUBO HASTA LA PANTA-LLA, QUE ESTA RECUBIERTA DEUNA SUSTANCIA FLUORESCENTE."
1 P$=" QUIERES VER DE NUEVO ESTA LECCION ? (S/N)":
1 P$=" En el numero 7 ":
1 O,i;A$(i-2
1 N$=N$+" ":
1 M-15338-1985
1 LETREROS ENTRANTES
1 LETRERO ROTATORIO
1 K$=T$(I+25
1 K$="O")+(10
1 K$="I")-(15
1 K$="A")-(8
1 INGELEK JAKSON
1 I$"''" aparece como.."''"
1 HAS LOGRADO HACER UN PROGRAMAUTILIZANDO LOS PARAMETROS RE-LATIVOS A <PRINT> E <INPUT>."
1 FUNCION QUE PERMITE LA SUPER-POSICION DE CARACTERES OVER
1 FUNCION QUE GENERA UN NUMEROALEATORIO RND
1 F$=" PULSA UNA TECLA PARA CONTINUAR "
1 EQUIVALE A ESCRIBIR ~TAB 0~ '
1 ELIGE """;
1 DIBUJO &
1 DETERMINA LA INTERMITENCIA ENLA IMPRESION FLASH
1 DETERMINA EL COLOR DE FONDO DELA PANTALLA PAPER
1 DETERMINA EL COLOR DEL MARCODE LA PANTALLA BORDER
1 DETERMINA EL COLOR DE PRIMERTERMINO DE LA PANTALLA INK
1 DETERMINA EL BRILLO DE LOS CA-RACTERES A IMPRIMIR BRIGHT
1 DETERMINA LA "SEMILLA" PARA~RND~ RANDOMIZE
1 CARACTERES
1 CAR/CODE X
1 B$="------------"
1 ATTR 2
1 ATTR 1 A
1 ARGUMENTO PARA ~INK~ Y ~PAPER~QUE INDICA TRANSPARENCIA 8
1 AHORA INTENTA ESCRIBIR EL PRO-GRAMA CUANDO TE LO PIDA.
1 ACUERDATE DE NUMERAR LAS INS-TRUCCIONES DE 10 EN 10, A PAR-TIR DE 10."
1 A$="VIDEOTEST ":
1 A$="PON EN MARCHA LA GRABADORA"
1 A$="INPUT":
1 <RND> ES UNA FUNCION BASTANTEESPECIAL: GENERA NUMEROS ALEA-TORIOS, ES DECIR, QUE NO SI-GUEN NINGUN ORDEN PREESTABLE-CIDO.% %SEGURO QUE MUCHAS VECES HASJUGADO A LA TOMBOLA, A LASCARTAS, A LOS DADOS... QUIZAS, SE TE HABRA OCURRIDOLUEGO ESCRIBIR UN PROGRAMA DETOMBOLA "ELECTRONICA", QUEFUERA CAPAZ DE EXTRAER NUMEROSDE UNA BOLSA, BARAJAR LAS CAR-TAS, O TIRAR LOS DADOS !% %BIEN, ` ESCRIBIR UN PROGRAMA DE ESTETIPO NO ES MUY DIFICIL, PEROREQUIERE LA RESOLUCION DE UNPROBLEMA MUY PARTICULAR: LAEXTRACCION DE NUMEROS, DE UNIMAGINARIO BOMBO.% EXISTEN VARIOS SISTEMAS MATE-MATICOS PARA OBTENER VALORESALEATORIOS: EL UTILIZADO POR<RND>, CONSISTE EN MANIPULARUNA DETERMINADA <SEMILLA>, QUECAMBIA CADA VEZ, DE MANERA QUESE OBTENGA UN RESULTADO ALEA-TORIO QUE PUEDE IR DESDE <0>HASTA <1> (EXCLUIDO EL <1>).%%LA UTILIZACION DE <RND> ES IN-MEDIATA:& &10 PRINT RND 20 GO TO 10& &IM
1 <<<>>,,.,,,,,,,,,<<
1 <<<>>$,.,,,,,,,,,,<
1 <<<<>>,,.,,,,,,,,,<<<<<<<<
1 <<<<>>$,.,.......,,,
1 <<<<<>>,,.,,,,,,,,,,<<<<<<<<<<<<<<<,,>>,,.,,,,,,,,,,<<<<<<<<<<<<<<<,,>>,,.,,,,,,,,,,,,,,,,,<<<<<<<,,,>>............,,,,,,,,,,,,,,,,,,....
1 ;n$;" ? (s/n)"
1 ;;"PULSA UNA TECLA PARA CONTINUAR":
1 ;"y quita la alimentacion a tu";
1 ;"muy bien, enhorabuena!"
1 ;"estas aqui";#1
1 ;"Y PULSA <ENTER>":
1 ;"TU PUNTUACION ES ";s;" SOBRE 30."
1 ;"SPECTRUM. Hasta pronto,";
1 ;"PULSA UNA TECLA Y"
1 ;"PRUEBA AHORA"
1 ;"PREGUNTA N. ";w
1 ;"PARA MEJORAR, VUELVE A LEER";
1 ;"NO TE PUEDO AYUDAR":
1 ;"MUY BIEN ";n$;
1 ;"La respuesta correcta es:";
1 ;"LINEA 8";
1 ;"LINEA 16"''
1 ;"LA RESPUESTA ES MUY CORTA";
1 ;"JKTUVWXY"
1 ;"INGELEK "
1 ;"He aqui la ruta que has seguido! "
1 ;"HE AQUI UNA SUGERENCIA:"
1 ;"Guarda el casete en su caja";
1 ;"Grado de dificultad ? (1 - 9)":
1 ;"GRABADORA"
1 ;"Estas andando por aqui ";
1 ;"ESCRIBE TU NOMBRE";
1 ;"ESCRIBE TU NOMBRE EN EL TECLADO Y PULSA <ENTER>":
1 ;"ES EXACTO."
1 ;"ENTRADA-
1 ;"ENCENDIDO"
1 ;"EN MARCHA"
1 ;"EN EL TECLADO";
1 ;"Ahora pulsa una tecla, y podras ver el recorrido que has hecho "
1 ;"Ahora llevas ";max-pass;" pasos."'"La flecha te indica la posicion y la direccion en la que estas."
1 ;"... <INPUT> LA PARTE BAJA"," (NORMALMENTE 2 LINEAS)",
1 ;"- - - - - -"''':
1 ;"""";i$;""" esta equivocado."
1 ;" VIDEO ";
1 ;" PULSA UNA TECLA"
1 ;" INGELEK"
1 ;" INGELEK "
1 ;" Has hecho: ";
1 ;" ESTO ";
1 ;" BASIC "
1 ;" BASIC ";
1 ;" APAGADO "
1 ;" 30 PRINT
1 ;" 20 PRINT
1 ;" 10 PRINT AT 13,28;""O""";
1 ;" VIDEO ";
1 ;" Esta bien escrito";
1 ;" BASIC ";
1 ;" VIDEOBASIC"
1 ;" PON EN MARCHA LA GRABADORA "
1 ;" Pulsa una tecla":
1 ;" PARA LA GRABADORA ":
1 ;" PARA LA GRABADORA "
1 ;" estoy cargando "''" VIDEOHARDWARE ":
1 ;" ";
1 ;" "
1 ;" ":
1 ;" "
1 ;" ":
1 ::888:9999:::::::::::::::::::::::::8899:99:::::::::::::::::::::::::::99::9:::::::::::::<99999999:::::999999::::::::::::999999999:::::999999::::::::::::912119999::::::9999:::::::::::::912221999::::999999:::::::999:::911121999::::99999::::::::999:::991111999:::::99999::::88899<<999))))9999:::::999999:;;;;89:<<99)))))9999::::999999++++;;:::<<;;999)9999:::::99999///++;;::==9;;9999999:8:::999999//;;/:;;:==9999>>>>9
1 899)>>>>><<88888888888<<<>>$,(((899*>>>>.,<88888888888<<<>>$,..(()**.....,<<<<<<<<<<<<<<<>>$,.....**....,,
1 899)....><<88888888888<<<>>$,((
1 899).....<<88888888888<<<>>$,(
1 88::::999:://;;++;;:9999!!>>>>>
1 88::::888:://+//+:::999!!&>>>>>
1 88::::88888
1 88::::88800888888::99!!"&&>>>
1 88::::888000xppp888888
1 88::::88800088888888'!"&&>>
1 88::::8880000ppp88888 &&&
1 88888::::888000xppp8888888 888888888::::8880000pppppppx000888888888:::::8888888ppp8888xxxxxxxxx888::::::8888888ppp88888888888888::::
1 8,3;""LINEA 8"";
1 5TRADUCCION
1 43 - FASE DE OUTPUT","CUAL ES EL RESULTADO FINAL ?",""
1 40 PRINT ""BASIC""
1 4 O U T P U T ","04>IMPRIME ","04?DETALLE ","#823","2>50
1 31232,1368
1 30 PRINT PAPER 6;""BASIC""
1 3"'" 20 PRINT ""BASIC""
1 22;IMP","03A IMP
1 22 - FASE DE CALCULO","COMO OBTENDREMOS EL TOTAL ?",""
1 20","04C TOTAL ","#813","2C70
1 2 ELABORACION ","04;ACTUAL. ","04< TOTAL ","#823","2;40
1 16,6;""LINEA 16"" ; XX",,'
1 12345678901
1 11 - FASE DE INPUT","CUALES SON LOS ELEMENTOS DENUESTRO PROBLEMA ?",""
1 1 I N P U T ","042INICIO ","043CONTAD. ","#820","2310
1 01234567890
1 0123456789
1 00000000000000000000000000000000000000000000000000000000000000000000000000111111111111102110000000000000021111111111111221100000000000000222222222222222211000000000000002222222222222222110000000000000000000000000000000000000666666666660000000006600000000006666666666666666666666666666666666666666666666666666666666666666:????????????????????????????????????????????????????????????????::::???????????????????????????????????????????????????????????::::????????????????????????????88??????????????????????????????88?????????????????????:?????88?88???????????88?????::::?????88?88???????88????????89:::?????88?8888888888888888889999999???????888888888888888888999999:8888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888N
1 0,0;""LINEA 0"";
1 0 ? ","<:13","0=?SI","2A60
1 ////8::999!!"&>>>>
1 ...................................
1 -SALIDA !!"'" ";
1 -IMPORTE.",""
1 -DESCRIPCION GASTOS/INGRESOS;
1 ,XX;" ";
1 ,XX;" "
1 ,O;"PARTE SIGUIENTE";
1 ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,*,,,,,<<<<<<<<<<<,,,,,,,,,,,,,,,*,,,<<<<<<<<<<<<<<<<<<,((,,,,,,,*,,,<8888888888<<<<<<<,((((,,,,,*,,,<88888888888<<<<<<,(((((,****,,,<88888888888<<<<<$,(((8))**,,,,,<88888888888<<<<<$,(8(899:)*,,,,<88888888888<<<44$,(
1 ,"INGELEK",10
1 ,"BASIC",21
1 +pass,punt:
1 *diff*(diff<3
1 **AYUDA II INTENTO**
1 ***respuestas flash***
1 ***puntuacion***
1 ***premi tasto***
1 ***comentario final***
1 ***bloque principal***
1 ***INPUT controlado***
1 ***CLS ABAJO***
1 *(y$="6"):
1 );" al laberinto"
1 );" ":
1 )*pass));" puntos "
1 )*diff*900
1 ));q$(q,65
1 (i,j);" ":
1 (i$(u+u)="0"
1 (go,go1)=56
1 (add+go)=6
1 '*"'''"5 - IZQUIERDA 8 - DERECHA"''"6 - ADELANTE 7 - ATRAS";#0
1 '''''"********** LABERINTO ***********"''''"*PARA DETENERTE, PULSA '
1 '''''" Ejemplo:"''" 10
1 ''''"Ay !Ay !! en ";pass;" pasos no has"'"conseguido encontrar la salida; pero has:"'"pasado ";inc;" cruces"'"y dado ";vista;" vuelta";("s"
1 '''"LOS PARAMETROS A USAR SON..."'''t$;"
1 ''"PAPER (FONDO)":
1 ''"OVER (SUPERPOSICION) BASIC";
1 ''"INVERSE (INVERSO)";
1 ''"INK (PRIMER TERMINO)":
1 ''"FLASH (INTERMITENCIA)";
1 ''"BRIGHT (BRILLO)";
1 ''" resulta como..."''" ";
1 ''" continuemos..."
1 ''" Ejemplo:"''" 10 PRINT PAPER 2;"" ESTO ES"";"'" 20 PRINT "" BASIC """
1 ''" Ejemplo:"''" 10 LET ANO=1985"'" 20 INPUT NAC"'''
1 ''" Ejemplo:"''" 10 INPUT
1 ''" Ejemplo:"''" 10 PAPER 2"'" 20 PRINT "" ESTO """'" 30 PRINT "" ES """'" 40 PRINT "" BASIC """
1 '"<PRINT> UTILIZA NORMALMENTE LAPARTE ALTA DE LA PANTALLA (22LINEAS). "
1 '"10 INPUT
1 '" resulta como..";
1 '" ------------------------------"''" ..mientras.."''" 10 INPUT ""ELIGE "";
1 "xg+xs/2",yg+ys*
1 "TE ACONSEJO QUE LEAS ATENTAMENTE LOS MENSAJES Y RESPUESTAS SOBRE LAS INSTRUCCIONES <PRINT> E <INPUT>",""
1 "RESPUESTA = ";
1 "QUEREMOS UN PROGRAMA QUE IM-PRIMA EL DETALLE DE NUESTROSGASTOS E INGRESOS, Y QUE CAL-CULE EL IMPORTE TOTAL DE LOSMISMOS. LA DESCRIPCION DEBE ESCRIBIR-SE EN LA COLUMNA <0>. LOS IMPORTES Y EL TOTAL EN LACOLUMNA <22>.",""
1 "PRINT AT 2,8;PAPER 5;""DESCR.""",
1 "PRINT AT 2,4;""*""",
1 "PRINT AT 2,3;""TODO""",
1 "Lo obtendremos sumando en unavariable numerica los valorestecleados. Introduciendo unimporte de <0>, obtendremos eltotal final.",""
1 "LEE TAMBIEN LOS MENSAJES Y RE-COMENDACIONES DE <PRINT>, Y DE<INPUT>.",""
1 "El resultado final consiste enel detalle de las entradas/sa-lidas y el total.","",""
1 "Ejemplos..."''"10 PRINT ""ESTO""
1 "ESTA VEZ, "+N$,"APRENDEREMOS A USAR EN LAPRACTICA LOS NUEVOS PARAMETROSDE LA SENTENCIA <PRINT>.",""
1 "Deberemos introducir:
1 "DESCR.";I$:
1 "AHORA, "+N$,"TRANSFORMAREMOS EL ANALISIS EN UN DIAGRAMA DE FLUJO, QUE POSTERIORMENTE TRADUCIREMOS AL <BASIC>."
1 "9";"<- UN PUNTO":
1 "7";"<< SPECTRUM >>"(i);:
1 "7";" ESTOY CARGANDO VIDEOTEST":
1 "6";"PULSA";
1 "6",Z;"LINEA 0";
1 "5";"ESTOES ELBASIC",
1 "5";"BORDER ":
1 "5";"...TE PERMITE..."
1 "5"+"DESCR.",";AT 2,20;INVERSE 1;""IMPORTE""",
1 "5"'"ESTO",,"ES EL",,"BASIC",,
1 "5"'"ESTO","ES EL","BASIC",,
1 "4";"PAPER ____";
1 "4";"INK _________"
1 "4";"ESTA BIEN ESCRITO ? (S/N)"
1 "4"+"*",";TAB 10;1234",
1 "30")="&"):
1 "3";"pero el ";:
1 "3";"TECLADO Y PULSA <ENTER>":
1 "3";"ESCRIBE TU NOMBRE EN EL";
1 "3";"ESCRIBE TU NOMBRE EN EL TECLADO Y PULSA <ENTER>"
1 "3";"<- .. OTRO":
1 "3"+"TODO",";TAB 24;""OK""",
1 "28"-J/A,ER+J/A*.7
1 "23617",u:
1 "23617",Z:
1 "23295+I",
1 "23295"+i,
1 "228"-J/A,ER+J/A*
1 "22";"= ";"
1 "21",Z;"CON
1 "2";" ESTO ES";:
1 "14";"..U OTRO ->":
1 "14",U;"Resulta:"''
1 "13";"BASIC!"
1 "128"-J/A,ER+J/A*.7
1 "12";"+ ";"
1 "11",U;"10 INPUT ""
1 "10";"VIDEOBASIC":
1 "08LfL800"(i+u)-
1 "*1 ","% "
1 ""IMP."";IMP"
1 ""DESCR."";D$","048INTROD. ","049 <IMP.> ","#823","2830
1 ""BASIC"""''
1 " IMPRIME UNA CABECERA "," GASTOS O INGRESOS"
1 " Ejemplo:"'''" 10 INPUT ""ELIGE "";I$"''" aparece como..."''"
1 " BASIC ":
1 posicion"''t$;"
1 para repetir
1 para continuar "
1 linea,posicion"''t$;"
1 Tel. 031-240.959
1 Tel. 031-240.959
1 SOFTIDEA(COMO)T.031-240959
1 SOFTIDEA (Como)
1 SOFTIDEA (Como)
1 SOFTIDEA COMO
1 REPETIR";
1 REPETIR ***
1 PULSA UNA TECLA PARA CONTINUAR
1 OTRA VEZ ***
1 INTRODUCCION";
1 EJERCICIO"
1 CARGO LA PARTE";
1 CARGAR EL VIDEOJUEGO";
1 CARGA LA";
1 ANTES AHORA RESULT. "
1 AL BASIC ":
1 (punto y coma)
1 (coma)"''t$;"
1 (apostrofe)"''t$;"
1 Tel. 031-240.959
1 Pon en marcha la grabadora
1 PON EN MARCHA LA GRABADORA
1 ":
1 *
1 (OUTPUT) (INPUT)"
1
1
1
1
1